home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 3
/
Publication_03_1996_High-Tech_de_Side_B.d64
/
stress 2 main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
21KB
|
593 lines
0 rem stress 2 von daniel himmmel
2 rem -------- kultsoft/juni 1993
4 rem
6 rem copy me !!!----public domain
8 rem
10 rem ****************************
12 poke53280,0:poke53281,0:print"[147][152]"
14 if lo=0 then lo=1:load"stress 2 char",8,1
18 print"[147][152]":rem -- gaggenau ----------
20 printchr$(8)
22 print" [211]tress 2"
24 print" [208]rogrammiert von
26 [153]"sys str$aniel left$immel
28 print"[152] [203]ultsoft /[202]uni 1993
30 [153]"open str$ies schoene (NULL)rogramm ist (NULL)str$-(NULL)oft!":[141] 63000
32 [158] 58592
36 [153]"load(NULL)ird eine atnnleitung benoetigt ? (mid$/(NULL))wait";:[143] kultsoft software !
38 [161] a$:[139] a$[178]"" [167] [137] 38
40 [139] a$[178]"n" [167] [137] 100
42 [139] a$[178]"j" [167] [137] 46
44 [137] 38:[143] ************************
46 [153]"loadsysstr$ie atnnleitung :wait"
48 [153]"open ascreddie ist ein absolutes lenomputer-
50 print" spielefreak. [213]nd nun will er sich ein
52 [153]" neues chr$ame reinziehen, doch dazu muss
54 print" er erst in die [207]berstadt fahren, und
56 [153]" dort das (NULL)piel, das uebrigens (NULL)(NULL)val(NULL)right$chr$ 3
58 print" heisst, kaufen. [206]un liegt da ein
60 [153]" gewisses (NULL)roblem: (NULL)aemlich ascreddie
62 print" wohnt in der [213]nterstadt. [197]s gibt nur
64 [153]" einen (NULL)eg zur (NULL)berstadt, naemlich
66 print" die [213]-[194]ahn.":rem kultpower is aktivated
68 print" <[196]ruecke bitte die [211]pacetaste>":sys 58592:sys 58592:sys 58592
70 print"[147][158][196]ie [211]teuerung :[146]":rem******
72 print"[159] [205]it der [212]aste [206] fuer [206]orden, [211] fuer
74 [153]" (NULL)ueden, usw. kann man in die verschie-
76 print" denen [210]ichtungen gehen. [193]ndere [196]inge
78 [153]" kann man ausfuehren, indem man die
80 print" verschiedenen [214]erben benutzt, die
82 [153]" in dem (NULL)ext vorgegeben werden. (NULL)och
84 print" was, [215]oerter wie nimm, werden klein "
85 print" geschieben und bei den [207]bjekten ist es egal.
86 [153]" <(NULL)pace druecken>":[158] 58592:[158] 58592:[158] 58592
100 [151] 53272,20:[143] gross/grafik----------------------------zeichensatz^
110 [153]"loadlist
112 print" [176][196][196][192][198][201] [212]
114 [153]" chr$ (NULL)
116 print" [221] [198][219][196]
118 [153]" mid$asctanstr$ascright$ chr$ -ascstr$ (NULL)ascstr$right$ (NULL)ascstr$ascasc (NULL)str$asctanstr$
120 print" [200] [212] [200] [200] [200] [199] [212]
122 [153]" chr$ (NULL) chr$ -ascstr$exp /str$asclenright$ /lenstr$ascright$
124 print" [173][196][198][192][196][203] [202][210] [212] [202][198][196] [196][198][196][192][203] [196][198][192][198][203]
126 [153]" "
128 [153]" wait "
130 [153]" p wait waitp "
132 [153]" d wait waitd "
134 [153]" wait "
136 [153]" "
138 [153]" <druecke space>"
140 [158] 58592:[158] 58592:[158] 58592
141 [158] 51200
142 v1$[178]" atnn der (NULL)and haengt ein (NULL)chluessel":v2$[178]"nimm"
143 v3$[178]" atnuf dem peekoden liegt ein (NULL)adiergummi":v4$[178]"nimm"
144 v5$[178]" vals klebt auch ein (NULL)augummi am peekoden":v6$[178]"nimm"
145 v7$[178]" (NULL)loetzlich siehst du wie ein etwa
146 v8$=" zehnjaehriges [203]ind am [210]ande des
147 v9$[178]" (NULL)arks steht und weint.":va$[178]"sprich"
148 vc$[178]" "
149 [137] 200
150 [143] uni-input-aus-64'er-02/92------
151 i$[178]""
155 le[178]38:te$[178]">":[151] 214,[194](214)[170]1:[151] 211,2[171][195](te$)[171]1
156 [158] 58732
157 [153] te$;" ";
158 p[178]0
159 [151]204,0
160 [151]198,0:[146] 198,1
161 [161]x$
162 [151]207,0:[151]204,1:[153]" cmd";
163 [139]p[177]0[175][198](x$)[178]20[167]i$[178][200](i$,[195](i$)[171]1):[153]"cmd cmd";:p[178]p[171]1:[137]159
164 [139][198](x$)[178]13[137]172
165 [139]p[178]le[137]159
166 [139]bs[178]0[175](x$[179]"0"[176]x$[177]"9")[137]159
167 [139]bs[178]1[175](x$[179]" "[176](x$[177][199](127)[175]x$[179][199](160)))[137]159
168 [153]x$;
169 i$[178]i$[170]x$
170 p[178]p[170]1
171 [137] 159
172 [142]
175 [143] inventarliste ausgeben ........
180 [153][199](13)
182 [153]"right$nventar:"
183 [153]" chr$eld:"ge"":[153]"---------------------------------------"
184 [153] key$" "rad$" "
185 [153] gum$" "blu$" "
186 [153] card$"
198 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
199 return:rem ************************
200 print"[147][158] [196]u stehst in deinem [218]immer, das einem":bs=1
202 print" [211]auhaufen gleicht. [193]ber eine kleine
204 [153]" valcke ist zugegebenermasen sauber.
206 print" [206]aehmlich die, in der dein wunder-
208 [153]" schoener len64 steht. right$m (NULL)orden liegt
210 print" die [218]immertuer, die geoeffnet ist.
212 [139] v1$[178]"" [167] [137] 214
213 [153]v1$
214 [153]" str$u kannst (NULL), inventar,"v2$"...
215 bs=1
216 gosub 150
217 if i$="" then goto 200
218 if i$="n" or i$="[206]" then goto 250
219 if i$="nehm [211]chluessel" or i$="nimm [211]hluessel" then goto 230
220 if i$="nehme [211]chluessel" or i$="nimm [211]chluessel" then goto 230
221 if i$="nehme schluessel" or i$="nimm schluessel" then goto 230
222 if i$="nim schluessel" or i$="nimm schluesel" then goto 230
223 if i$="inventar" then gosub 175
224 printchr$(13):print" [196]u kannst das leider nicht tun !"
225 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
226 goto 200
230 if key$="[211]chluessel" then goto 200
231 printchr$(13)
232 print" [196]u nimmst dir den [211]chluessel und
233 [153]" steckst ihn dir in die (NULL)asche deiner
234 print" [200]ose.":print" <[196]ruecke [211]pace>"
235 key$="[211]chluessel":v1$="":v2$=""
236 sys 58592:sys 58592:sys 58592
240 goto 200
250 print"[147] [206]un stehst du im [198]lur deines [200]auses.
252 [153]" vals sieht so aus, als haette dein
254 print" kleines [205]iezekaetzchen wieder einmal
256 [153]" einen seiner (NULL)obsuchtsanfaelle gehabt,
258 print" [196]enn das halbe [200]aus liegt in [211]chutt
260 [153]" und atnsche.
261 if v3$="" then goto 263
262 printv3$
263 print" [196]u kannst : [211],[207],[206],"v4$"..."
264 gosub 150:rem uni input aufrufen...
266 if i$="" then goto 250
267 if i$="[211]" or i$="s" then goto 200
268 if i$="[206]" or i$="n" then goto 300
270 if i$="[207]" or i$="o" then goto 350
271 if i$="nehme radiergummi" or i$="nehme [210]adiergummi" then goto 280
274 if i$="nimm radiergummi" or i$="nimm [210]adiergummi" then goto 280
275 if i$="inventar" then gosub 175
276 printchr$(13):print" [196]u kannst das leider nicht tun !"
277 print" <[196]ruecke [211]pace>":sys 58592:sys 58592
279 goto 250
280 printchr$(13)
282 if rad$="[210]adiergummi" then goto 250
284 print" [196]u nimmst dir den kleinen, unschuld-
286 [153]" igen (NULL)adiergummi und verstaust ihn
288 print" in deinen [203]angoroos [211]upershoes.
289 [153]" <str$ruecke (NULL)pace>":rad$[178]"(NULL)adiergummi":v3$[178]"":v4$[178]""
290 [158] 58592:[158] 58592:[158] 58592
295 [137] 250
300 [153]"load (NULL)un stehst du vor deinem left$aus.
302 print" [196]u kannst am oestlichen [197]nde der
304 [153]" (NULL)trasse ein (NULL)child mit der atnuf-
306 print" schrift '[195]64 forever !', oder
308 [153]" so aehnlich, erkennen. str$u kannst
310 print" ja hingehen wenn du willst.
312 [153]" right$m (NULL)estlichen (NULL)eil der (NULL)trasse geht
314 print" es zu einem kleinen [194]lumenladen.
316 [153]" str$u kannst : (NULL),(NULL),(NULL),...
318 gosub 150
320 if i$="" then goto 300
324 if i$="[211]" or i$="s" then goto 250
326 if i$="[215]" or i$="w" then goto 400
328 if i$="[207]" or i$="o" then goto 450
330 if i$="inventar" then gosub 175
331 printchr$(13):print" [196]u kannst das leider nicht tun !"
332 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
335 goto 300
350 print"[147] [206]un stehst in deiner kleinen [203]ueche,
352 [153]" auch hier sieht man wie deine (NULL)atze
354 print" getobt haben muss.
356 [153]" str$u kannst nach (NULL).
358 gosub 150
359 if i$="" then goto 350
360 if i$="w" or i$="[215]" then goto 250
362 if i$="inventar" then gosub 175
363 printchr$(13):print" [196]u kannst das leider nicht tun !"
364 print" <[196]ruecke [211]pace>":sys 58592:sys 58592: sys 58592
366 goto 350
400 print"[147] [206]un stehst du vor einem kleinen und
402 [153]" schoenen peeklumenladen. str$urch das (NULL)chau-
404 print" fenster kannst du wahre [194]erge von
406 [153]" peeklumen und eine wunderschoene,
408 print" allerdings etwas kleine [214]erkauferin
410 [153]" sehen.
415 if v5$="" then goto 417
416 printv5$
417 print" [196]u kannst in das [199]eschaeft, [207],"v6$"...
419 [141] 150
420 [139] i$[178]"" [167] [137] 400
422 [139] i$[178]"(NULL)" [176] i$[178]"o" [167] [137] 300
424 [139] i$[178]"inventar" [167] [141] 175
425 [139] i$[178]"gehe in geschaeft" [176] i$[178]"gehe in chr$eschaeft" [167] [137] 500
426 [139] i$[178]"nehme (NULL)augummi" [176] i$[178]"nimm (NULL)augummi" [167] [137] 435
427 [139] i$[178]"gehe geschaeft" [176] i$[178]"gehe chr$eschaeft" [167] [137] 500
428 [139] i$[178]"nehme kaugummi" [176] i$[178]"nimm kaugummi" [167] [137] 435
429 [139] i$[178]"gehe in chr$eschaeft"[176] i$[178]"gehe in geschaeft" [176]i$[178]"gehe rein"[137] 500
430 [139] i$[178]"betrete chr$eschaeft" [176] i$[178]"betrete geschaeft" [167] [137] 500
431 [139] i$[178]"betritt chr$eschaeft" [176] i$[178]"betritt geschaeft" [167] [137] 500
432 [139]i$[178]"geh in chr$eschaeft"[176]i$[178]"geh in geschaeft"[176]i$[178]"geh rein" [137] 500
433 [153][199](13):[153]" str$u kannst das leider nicht tun !"
434 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592:[137] 400
435 [153][199](13)
436 [153]" str$u blickst konzentriert drein,
437 print" waehrend du das trockene [203]augummi
438 [153]" verzweifelt versuchst vom peekoden los-
439 print" zuloesen. [206]ein, so geht das nicht !
440 [153]" str$enkst du dir, da brauch ich irgendein
441 print" [200]ilfsmittel !
443 [153]" (NULL)as fuer ein left$ilfsmittel willst du
444 print" benutzen ?([205]it'keins'kannst du weiter spielen)
445 [141] 150:[139]i$[178]"" [167] [153]"load":[137] 436
446 [139] i$[178]"keins" [176] i$[178]"keines" [167] [137] 400
447 [139] i$[178]"(NULL)chluessel" [176] i$[178]"benutze schluessel" [167] [137] 490
448 [139] i$[178]"schluessel" [176] i$[178]"benutze (NULL)chluessel" [167] [137] 490
449 [153]"loadload":[137] 435
450 [153]"load (NULL)un stehst du bei der (NULL)lakatwand und
452 print" siehst, das es dahinter noch nach
454 [153]" (NULL)orden geht. (NULL)enn du schon in die
456 print" [210]ichtung blickst, dort liegt der
458 [153]" (NULL)nterstadtpark.
460 print" [196]u kannst nach [206] und [215],lies,...
462 [141] 150
464 [139] i$[178]"" [167] [137] 450
465 [139] i$[178]"inventar" [167] [141] 175
466 [139] i$[178]"lies" [176] i$[178]"lese" [167] [137] 475
467 [139] i$[178]"(NULL)" [176] i$[178]"n" [167] [137] 600
468 [139] i$[178]"(NULL)" [176] i$[178]"w" [167] [137] 300
469 [139] i$[178]"lies plakat" [176] i$[178]"lese plakat" [167] [137] 475
470 [139] i$[178]"lies (NULL)lakat" [176] i$[178]"lese (NULL)lakat" [167] [137] 475
471 [153][199](13):[153]" str$u kannst das leider nicht tun !"
472 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
474 [137] 450
475 [153][199](13):[153]" atnn der (NULL)and steht :
476 print" ' [204]ong live the [194]rotkaschten '. [196]u
478 [153]" hast dich also gehoerig verlesen !
480 print" [196]u solltest mal wieder zum [193]ugen-
482 [153]" arzt gehen...
484 print" <[208]ress [211]pace>"
486 sys 58592:sys 58592:sys 58592
487 goto 450
490 print"[147] [215]ow, wie bist du nur darauf gekommen?
491 [153]" (NULL)un kniest du schwitzend und stoehnend
492 print" ueber dem [203]augummi und versuchst ihn
493 [153]" mit dem (NULL)chluessel vom peekoden los-
494 print" zuloesen. [196]as die vorbeigehenden
495 [153]" (NULL)eute dich schraeg ansehen stoert":v5$[178]"":v6$[178]""
496 [153]" dich nicht, denn jetzt beginnt sich"
497 [153]" der (NULL)augummi zu loesen und das (NULL)under":gum$[178]"(NULL)augummi"
498 [153]" geschieht ! str$u hast den (NULL)augummi !!! <str$ruecke (NULL)pace>"
499 [158] 58592:[158] 58592:[158] 58592:[137] 400
500 [153]"load (NULL)un stehst du inerhalb des peeklumen-
502 print" ladens. [196]u schaust dich um und siehst:
504 [153]" peeklumen ! (NULL)elch ein (NULL)ufall ! atnls dein
506 print" [194]lick auf die huebsche [214]erkauferin
508 [153]" faellt, wird dein (NULL)erstand ganz um-
510 print" nebelt und dein [201]nstinkthirn denkt
512 [153]" einiges (NULL)erschweintes (ich frage mich,
514 print" wo da der grosse [213]nterschied zu
516 [153]" ascreddies (NULL)ormalzustand liegen soll ?!?)
518 print"[145] [196]u bist ganz hingerissen von dem
520 [153]" (NULL)aedchen und so ganz uninteressiert
522 print" scheint sie an dir auch nicht zu sein!
524 [153]" str$u blinzelst ihr zu, sie blinzelt dir
526 print" zu, du blinzelst ihr wieder zu, sie
528 [153]" blinzelt dir... left$atn(NULL)(NULL) !!! right$st das hier
530 print" ein biliger [204]iebesroman oder ein
532 [153]" relativ ernsthaftes atndventure ?!?"
533 [153]" ascreddie, fuer dein (NULL)iebesleben hast du
534 print" auch noch nach dem [211]piel [218]eit !"
536 print" [193]lso alles noch mal von vorn.
538 [153]" <str$ruecke (NULL)pace>"
540 [158] 58592:[158] 58592:[158] 58592
542 [153]"load (NULL)un bist du im peeklumengeschaeft. str$u
544 print" blickst dich um und siehst alle
546 [153]" moeglichen und unmoeglichen (NULL)flanzen
548 print" ([196]ies ist schliesslich ein [195]omputer-
550 [153]" spiel !). (NULL)nd ganz nebenbei blickst
552 print" du verstohlen auf die wunderhuebsche
554 [153]" (NULL)erkauferin und misst mit einem
556 print" erfahrenem [194]lick ihre [207]berweite ab.
558 [153]" (NULL)ebrigens, du kannst dir peeklumen
559 print" kaufen (was man in einem [194]lumenladen
560 [153]" eigentlich erwarten kann).
562 print" [196]u kannst das [199]eschaeft verlassen und
564 [153]" peeklumen kaufen.
565 gosub 150
566 if i$="" then goto 542
568 if i$="verlasse [199]eschaeft" or i$="verlasse geschaeft" then goto 400
569 if i$="gehe raus" or i$="geh raus" then goto 400
570 if i$="kaufe [194]lumen" or i$="kaufe blumen" then goto 580
571 if i$="kaufe" or i$="benutze [199]eld" then goto 580
572 if i$="benutze geld" or i$="kaufe pflanzen" then goto 580
573 if i$="inventar" then gosub 175
574 if i$="use money" or i$="kaufe [208]flanzen" then goto 580
575 printchr$(13):print" [196]as kannst du leider nicht tun !"
576 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
579 goto 542
580 if ge=0 then goto 595
581 printchr$(13):print" [196]u kaufst dir einen schoenen,
582 [153]" duftenden peekund peeklumen und bezahlst.
583 print" [196]ie [208]flanzen kosten uebrigens 8 [205]ark.
584 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
586 blu$[178]"peeklumen":ge[178]ge[171]8:[137] 542
595 [153][199](13):[153]" str$u kannst dir leider keine peeklumen
596 print" kaufen, oder willst du zum [196]ieb werden?
597 [153]"on (NULL)ein ? chr$ut so ! right$ch naemlich bin ein
598 print" ehrliches [208]rogrammm !!! ":print" <[196]ruecke [211]pace>"
599 sys 58592:sys 58592:sys 58592:goto 542
600 print"[147] [206]un stehst du mitten im [211]tadtpark.
602 [153]" str$u siehst das hier viele (NULL)inder herum-
604 print" tollen und [211]pass haben. [201]st ja
606 [153]" eigentlich verstaendlich, denn unser
608 print" [208]ark ist ja wirklich ein idyllisches
610 [153]" (NULL)laetzchen.
615 if v7$="" then goto 620
616 printv7$
617 printv8$
618 printv9$
620 print" [196]u kannst [206], [211],"va$"...
622 [141] 150
623 [139] i$[178]"" [167] [137] 600
624 [139] i$[178]"inventar" [167] [141] 175
625 [139] i$[178]"s" [176] i$[178]"(NULL)" [167] [137] 450
626 [139] i$[178]"(NULL)" [176] i$[178]"n" [167] [137] 750
627 [139] i$[178]"sprich" [176] i$[178]"sprich mit junge" [167] [137] 650
628 [139] i$[178]"sprich mit mid$ungen" [176] i$[178]"spreche" [167] [137] 650
629 [139] i$[178]"gib (NULL)augummi" [176] i$[178]"gib kaugummi" [167] [137] 700
630 [139] i$[178]"gebe (NULL)augummi" [176] i$[178]"gebe kaugummi" [167] [137] 700
631 [139] i$[178]"gib (NULL)augummi an mid$unge" [176] i$[178]"gib kaugummi an junge" [167] [137] 700
632 [139] i$[178]"gebe kaugummi an junge" [176] i$[178]"gib kaugummi an mid$unge" [167] [137] 700
633 [139] i$[178]"gebe (NULL)augummi an mid$unge" [176] i$[178]"gib (NULL)augummi an mid$unge" [167] [137] 700
634 [139] i$[178]"gebe kaugummi an kind" [176] i$[178]"gebe (NULL)augummi an (NULL)ind" [167] [137] 700
635 [139] i$[178]"gib (NULL)augummi an (NULL)ind" [176] i$[178]"gib kaugummi an kind" [167] [137] 700
636 [139] i$[178]"sprich mit kind" [176] i$[178]"sprich mit (NULL)ind" [167] [137] 650
637 [139] i$[178]"spreche mit jungen" [176] i$[178]"spreche mit mid$ungen" [167] [137] 650
638 [139] i$[178]"spreche mit (NULL)ind" [176] i$[178]"spreche mit kind" [167] [137] 650
639 [153][199](13):[153]" str$as kannst du leider nicht tun !"
640 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
645 [137] 600
650 [153][199](13):[153]" str$u sprichst den mid$ungen auf sein
651 print" [208]roblem an, und er antwortet, das
652 [153]" er seinen (NULL)augummi verloren hat.
653 print" [196]arauf fragst du ihn, was an seinem
654 [153]" (NULL)augummi den so besonderes waere,
655 print" darauf entgegnet er, weshalb ich das
656 [153]" wissen wollte, darauf antwortete ich
657 print" wiederum, das ich ihm vielleicht
658 [153]" helfen koennte.
660 print" <[196]ruecke [211]pace>"
661 sys 58592:sys 58592:sys 58592
662 print"[147] [196]araufhin nuschelt er leise vor
663 [153]" sich hin, das der (NULL)augummi (NULL)agische
664 print" [203]raefte haette (wir rutschen in den
665 [153]" ascantasiebereich ab, dabei haette
666 print" dieses wundervolle [[200]ae ?!?] [193]dventure
667 [153]" eigentlich ernst sein sollen. left$ey,
668 print" warte mal ! [201]ch [damit meine ich mich]
669 [153]" bin doch der (NULL)rogrammierer, oder
670 print" liege ich da falsch ? [193]lso, dann kann
671 [153]" right$lenleft$ ja festlegen was passieren soll,
672 print" oder etwa nicht ? [199]enau, ...
673 [153]" --- breaking for message ---"
674 [153]" <str$ruecke (NULL)pace>"
675 [158] 58592:[158] 58592:[158] 58592
676 [153]" (NULL)(NULL)(NULL)(NULL) --- (NULL)rogrammierer wurde in
677 print" [201]rrenanstalt eingeliefert --- [211][212][207][208] ---
678 [153]" (NULL)eru left$immel fuehrt (NULL)rojekt nun
679 print" zu [197]nde --- [211][212][207][208]
680 [153]" <str$ruecke (NULL)pace>"
681 [158] 58592:[158] 58592:[158] 58592
685 [153]"load str$er mid$unge sagte, das es sein
686 print" [204]ieblingskaugummi war, und das
687 [153]" er dafuer alles andere hergeben wuerde!
688 print" [193]lles, fragst du mit einem seltsamen
689 [153]" (NULL)euchten in deinen atnugen, auch dein
690 print" [212]aschengeld ? [193]uch das, antwortet er
691 [153]" selbstbewusst.
692 print" [203]annst du mir mein [203]augummi zurueck-
693 [153]" bringen ? right$st seine lezte ascrage, die
694 print" er ploetzlich wieder mit weinerlicher
695 [153]" (NULL)timme spricht.
696 print" <[196]ruecke [211]pace>"
697 sys 58592:sys 58592:sys 58592
698 goto 600
700 if gum$="" then goto 740
701 printchr$(13):print" [193]ls du ploeztlich den alten [203]au-
702 [153]" gummi aus deiner (NULL)asche ziehst,
703 print" bekommt der [202]unge ploeztlich grosse
704 [153]" atnugen und blickt dich erfreut an.
705 print" [193]ls er jedoch zugriff um sein [212]eil
706 [153]" an sich zu nehmen ziehst du blitz-
707 print" schnell deine [200]and zurueck.
708 [153]" valrst meine peekelohnung, sagtest du,
709 print" also dein [212]aschengeld ! [200]ae,hae,hae...
710 [153]" str$as (NULL)ind bekam noch groessere atnugen
711 print" als es ohnehin schon hatte, und du
712 [153]" befuerchtest, das sie noch heraus-
713 print" kullern. [196]och ploetzlich [193]enderte sich
714 [153]" das (NULL)erhalten des mid$ungen. valr kramte
715 print" in den [212]aschen seiner [202]eans herum und
716 [153]" murmelte etwas das wie '(NULL)inderaus-
717 print" beuter' oder '[199]eldgieriges [193]rsch'
718 [153]" <str$ruecke (NULL)pace>"
719 [158] 58592:[158] 58592:[158] 58592
720 [153]"load str$och die (NULL)iebe zu seinem (NULL)augummi
721 print" war groesser als seine [215]ut. [197]r
722 [153]" drueckte dir schliesslich einen
723 print" [218]ehn-[205]arkschein in die [200]and, und war
724 [153]" froh endlich seinen (NULL)augummi wieder-
725 print" zubekommen. [196]u warfst ihm den
726 [153]" (NULL)augummi gutgelaunt zu und er fing ihn
727 print" gekonnt auf und stopfte ihn sich
728 [153]" sofort in den (NULL)und und kaute darauf
729 print" herum. [197]rst knirschte es noch ein
730 [153]" bischen von dem (NULL)and aber dann lief
731 print" es wie geschmiert.
732 [153]" <str$ruecke (NULL)pace>"
733 [158] 58592:[158] 58592:[158] 58592
734 gum$[178]"":ge[178]10:v7$[178]"":v8$[178]"":v9$[178]"":va$[178]""
735 [137] 600
740 [143]ntchr$(13):print" str$as kannst du nicht mehr, da
741 rem=t" 1. [196]u keinen [203]augummi mehr besitzt.
742 [143]nt" 2. str$er mid$unge nicht mehr da ist.
743 remnt" 3. [196]er [202]unge schon seinen [203]augummi
744 [143]nt" von dir bekommen hat.
745 remnt" <[196]ruecke [211]pace>"
746 rem 58592:sys 58592:sys 58592
748 goto 600
750 print"[147] [206]un stehst du vor der [213]-[194]ahn [211]tation.
751 [153]" valine alte, haessliche ascrau steht neben
752 print" dir und verkauft [198]ahrkarten, ohne
753 [153]" die du nicht in die (NULL)-peekahn hinein-
755 print" kommst. [196]ie alte [198]rau schaut dich
756 [153]" mit einem sehr seltsamen peeklick an,
758 print" der dir das [194]lut in den [193]dern ge-
759 [153]" frieren laesst. (NULL)o eine alte (NULL)chachtel!
760 print"[145] denkst du dir und willst fliehen,
761 [153]" doch der (NULL)pielerinstinkt haelt dich
762 print" davon ab, den [211]chwanz einzuziehen,
763 [153]" und abzuhauen.
764 print" [196]u kannst mit der alten [198]rau sprechen
765 [153]" und nach (NULL). atnusserdem kannst du noch
766 print" in die [213]-[194]ahn einsteigen (aber nur
767 [153]" wenn du eine ascahrkarte besitzt, wir
768 print" sind ja keine [211]chwarzfahrer, gelle!)
770 [141] 150
771 [139] i$[178]"" [167] [137] 750
772 [139] i$[178]"inventar" [167] [141] 175
773 [139] i$[178]"s" [176] i$[178]"(NULL)" [167] [137] 600
774 [139] i$[178]"sprich mit ascrau" [176] i$[178]"sprich mit frau" [167] [137] 800
775 [139] i$[178]"spreche mit ascrau" [176] i$[178]"spreche mit frau" [167] [137] 800
776 [139] i$[178]"spreche mit alter ascrau" [176] i$[178]"spreche mit alter frau" [167] [137] 800
777 [139] i$[178]"sprich mit alter ascrau" [176] i$[178]"sprich mit alter frau" [167] [137] 800
778 [139] i$[178]"sprich mit alter ascrau" [176] i$[178]"sprich mit alter frau" [167] [137] 800
779 [139] i$[178]"steige in die u-bahn ein" [167] [137] 850
780 [139] i$[178]"steige in die (NULL)-peekahn ein" [167] [137] 850
781 [139] i$[178]"gehe in u-bahn" [176] i$[178]"gehe in (NULL)-peekahn" [167] [137] 850
782 [139] i$[178]"benutze (NULL)-peekahn" [176] i$[178]"benutze u-bahn" [167] [137] 850
783 [139] i$[178]"fahre mit (NULL)-peekahn" [176] i$[178]"fahre mit u-bahn" [167] [137] 850
784 [139] i$[178]"kaufe fahrkarte" [176] i$[178]"kaufe ascahrkarte" [167] [137] 800
785 [139] i$[178]"benutze chr$eld" [176] i$[178]"benutze geld" [167] [137] 800
786 [139] po[178]1 [175] i$[178]"gib blumen" [167] [137] 820
787 [139] po[178]1 [175] i$[178]"gib peeklumen" [167] [137] 820
788 [139] po[178]1 [175] i$[178]"gebe blumen" [167] [137] 820
789 [139] po[178]1 [175] i$[178]"gebe peeklumen" [167] [137] 820
790 [139] po[178]1 [175] i$[178]"gebe peeklumen an ascrau" [167] [137] 820
791 [139] po[178]1 [175] i$[178]"gib peeklumen an ascrau" [167] [137] 820
792 [139] po[178]1 [175] i$[178]"gib blumen an frau" [167] [137] 820
793 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
794 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
795 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
796 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
797 [153][199](13):[153]" str$as kannst du leider nicht tun !"
798 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
799 [137] 750
800 [153][199](13)
801 [153]" str$u gehst zu der ascrau hin und fragst
802 print" sie ob du eine [198]ahrkarte haben kannst,
803 [153]" darauf antwortet sie, das sie nur
804 print" noch eine hatt und diese selber
805 [153]" braucht. (NULL)erzweifelt versuchst du ihr
806 print" zu erklaeren, das dein [204]eben davon
807 [153]" abhaengt, das du in die (NULL)berstadt
808 print" kommst. [196]och scheinbar versteht sie
809 [153]" nicht, was du meinst. atnlles was sie
810 print" sagt, ist, das du fuer ein bischen
811 [153]" atnbwechslung sorgen sollst in ihrem
812 print" grauen [204]eben als [198]ahrkarten-
813 [153]" verkaueferin.":po[178]1
814 [153]" <str$ruecke (NULL)pace>"
816 [158] 58592:[158] 58592:[158] 58592
819 [137] 750
820 [153][199](13)
821 [153]" str$u alte ascrau blickt dich unglauebig
822 print" an und faellt beinahe in [207]hnmacht
823 [153]" und in der ascreude drueckt sie dir
824 print" die [198]ahrkarte in die [200]and, dann
825 [153]" nimmt sie denn peeklummenstrauss und
826 print" rennt uebergluecklich davon...
827 card$[178]"ascahrkarte":po[178]2:blu$[178]""
830 [153]" <str$ruecke (NULL)pace>"
831 [158] 58592:[158] 58592:[158] 58592
832 [137] 750
850 [153][199](13):[139] card$[178]"" [167] 2000
851 [153]" str$u steigst uebergluecklich in die
852 print" [213]-[194]ahn ein und faehrst deinem heiss-
853 [153]" ersehnten (NULL)iel entgegen. "
854 [153]" <str$ruecke (NULL)pace>"
855 [158] 58592:[158] 58592:[158] 58592
856 [143]rint"load (NULL)ochmal spielen ?(mid$/(NULL))
857 remet po$:if po$="" then goto 857
858 remf po$="j" then run
859 remf po$="n" then goto 900
860 remoto 857
900 print"[147] [201]ch hoffe ihnen hat das [211]piel
902 [153]" ein wenig (NULL)pass gemacht.
904 print" [196]anke fuer's mitspielen.
907 [153]" atnuf (NULL)iedersehen in einem naechsten
908 print" [211]piel von mir !
910 [143] sys 64738
2000 [153]" left$ey, du peeketrueger! str$u besitzt gar "
2001 [153]" keine ascahrkarte! (NULL)illst du mich
2002 print" bescheissen, oder was?!
2004 [129]a[178]0[164]4000:[130]:[153]" (NULL)o schnell kann's gehen!"
2006 [153]" str$as (NULL)rogramm ist geloescht, viel (NULL)pass
2008 print" beim [206]euladen! [212]schuessssssss!
2010 [162]
62999 [128]
63000 [129]x[178]1[164] 24:[151] 54272[170]x,0: [130]
63001 s[178]54272
63002 [151] s[170]24,7
63003 [151] s[170]5,12[172]16[170]0
63004 [151] s[170]6,15[172]16[170]10
63005 [129] x[178] 255 [164] 100[169] [171]1
63006 [151] s[170]1,x
63007 [151] s[170]4,17
63008 [129] d[178]1 [164] 10 : [130] d
63009 [130] x
63010 [151] s[170]24,15
63011 [151] s[170]1,15
63012 [151] s[170]4,128
63013 [142]
63015 s[178]54272
63016 [151] s[170]24,15:[151] s[170]1,110
63017 [151] s[170]5,9:[151] s[170]6,9
63018 [151] s[170]4,17:[151] s[170]4,16
63019 [142]
63020 [129] i[178]32770 [164] 32778
63021 [135] a:[151] i,a
63022 [130] a
63023 [131] 010,128
63024 [131] 195,194
63025 [131] 205,056
63026 [131] 048,088
63027 [131] 000
63029 [142]
63030 [151] 2050,1
63031 [158] 42291
63032 [151] 46,[194](35)
63033 [151] 45,[194](781)[170]2
63035 [156]
63039 [142]
63040 [151] 44,[194](46)[170]1
63041 :
63047 [151] 44,8
63049 [142]
63050 [143] -----------------
63051 [143] -programmiert -
63052 [143] -von -
63053 [143] -daniel himmel -
63054 [143] -76571 gaggenau -
63055 [143] -----------------
63056 [143]
63057 [143] dieses programm
63058 [143] ist public domain
63059 [143] software
63060 [143] und ist damit
63061 [143] frei kopierbar !
63062 [143]
63063 [143]
63064 [143] copy me !!!
63065 [143] -----------
63066 [143] data house -> public domain
63067 [143] husumer strasse 13
63068 [143] 34246 vellmar
63069 [143] ------------------